home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 2, No. 02 (1982-10)(Softdisk)(Side B).zip / Softdisk Magazette Volume 2, No. 02 (1982-10)(Softdisk)(Side B).do / CHECK BOOK BALANCER.bas < prev    next >
BASIC Source File  |  1996-12-24  |  3KB  |  73 lines
  1. 20  REM  CHECKBOOK BALANCING PROGRAM 
  2. 30  REM  *** DATA INITIALIZATION *** 
  3. 40 M1 = 20
  4. 50 M2 = 100
  5. 60  DIM D(20),C1$(100),C(100),C$(100)
  6. 70  TEXT : HOME : VTAB 5
  7. 80 DD$ = "<CTRL-D>"
  8. 90  PRINT : INPUT "ENTER DATE OF THE STATEMENT ";DA$
  9. 100  PRINT : INPUT "WILL YOU WANT RESULTS PRINTED (Y/N)? ";PRT$
  10. 110  PRINT : INPUT "ENTER BALANCE FROM BANK STAT. $";B
  11. 130  PRINT : PRINT "ENTER DEPOSITS NOT CREDITED ON STATEMENT(RETURN WHEN DONE)"
  12. 140  FOR I = 1 TO M1
  13. 150 D(I) = 0
  14. 160  INPUT "AMOUNT $ ";D$
  15. 170  IF  LEN(D$) = 0  THEN 200
  16. 175 D(I) =  VAL(D$)
  17. 180 DO = DO +D(I)
  18. 190  NEXT I
  19. 200  PRINT "ENTER CHECKS OUTSTANDING - CK NBR & AMT PRESS RETURN WHEN DONE."
  20. 220 M1 = I -1
  21. 230  FOR I = 1 TO M2
  22. 240 C1$(I) = " "
  23. 250 C(I) = 0
  24. 260  INPUT "CK NBR. ";C1$(I): IF  LEN(C1$(I)) = 0  THEN 300
  25. 265  INPUT "CK AMOUNT $";C$(I): IF  LEN(C$(I)) = 0  THEN 300
  26. 270 C(I) =  VAL(C$(I))
  27. 280 CO = CO +C(I)
  28. 290  NEXT I
  29. 300  PRINT "SUBTRACT SERVICE AND OTHER CHARGES FROM YOUR CHECKBOOK.": PRINT "DON'T FORGET OTHER ADDS AND SUBTRACTS "
  30. 320  PRINT "SUCH AS AUTOMATIC WITHDRAWALS, CHECK    CHARGES, ETC."
  31. 330 M2 = I -1
  32. 340  PRINT 
  33. 350  INPUT "ENTER BALANCE SHOWN IN CHECKBOOK $";B1
  34. 370  REM  *** PRINT OF RESULTS ***
  35. 380  PRINT 
  36. 385  IF PRT$ = "Y"  THEN  PRINT DD$;"PR#1": GOTO 395
  37. 390  PRINT "PRESS ANY KEY FOR BALANCE";: GET A$
  38. 393  HOME 
  39. 395  PRINT 
  40. 420  PRINT  TAB( 18);DA$
  41. 430  PRINT 
  42. 440  PRINT "BALANCE FROM STATEMENT"; TAB( 30);"$";B
  43. 450  PRINT 
  44. 460  PRINT "RECENT DEPOSITS NOT SHOWN"
  45. 470  FOR I = 1 TO M1
  46. 480  PRINT  TAB( 30);"$";D(I)
  47. 490  NEXT I
  48. 500  PRINT  TAB( 25);"-------------"
  49. 510  PRINT "     SUBTOTAL DEPOSITS"; TAB( 30);"$";DO
  50. 520  PRINT 
  51. 530  PRINT  TAB( 25);"============="
  52. 540  PRINT "TOTAL"; TAB( 30);"$";DO +B
  53. 545  IF PRT$ < >"Y"  THEN  PRINT : PRINT "PRESS ANY KEY FOR OUTSANDING CHECKS";: GET Z$: HOME : PRINT : PRINT 
  54. 550  PRINT 
  55. 560  PRINT "CHECKS OUTSTANDING"
  56. 570  PRINT  TAB( 18);"CHK"; TAB( 30);"AMOUNT"
  57. 580  FOR I = 1 TO M2
  58. 590  PRINT  TAB( 18);C1$(I); TAB( 30);"$";C(I)
  59. 600  NEXT I
  60. 610  PRINT  TAB( 25);"------------"
  61. 620  PRINT "   SUBTOTAL CHECKS OUT"; TAB( 30);"$";CO
  62. 630  PRINT 
  63. 640  PRINT "======================================="
  64. 650  PRINT "BALANCE EXPECTED IN CHECKBOOK"; TAB( 30);"$"; INT((DO +B -CO +.005) *100)/100
  65. 660  PRINT "BALANCE IN CHECKBOOK"; TAB( 30);"$";B1
  66. 670  PRINT "***************************************"
  67. 680  PRINT "      DIFFERENCE "; TAB( 30);"$";( INT(DO +B -CO -B1 +.005) *100)/100
  68. 681  PRINT "***************************************"
  69. 682  IF PRT$ = "Y"  THEN  PRINT " "
  70. 685  IF PRT$ = "Y"  THEN  PRINT DD$;"PR#0"
  71. 695  IF PRT$ < >"Y"  THEN  PRINT "NOW DO YOU WANT PRINTED RESULTS (Y/N)?": GET Z$
  72. 696  PRINT : IF PRT$ < >"Y"  AND Z$ = "Y"  THEN PRT$ = "Y": HOME : GOTO 380
  73. 700  END